10 REM SPEEDLESEROUTINE FUER ALLE SPUREN
20 REM (C) 1986 BY KLAUS RACZEK
30 :
40 DIM R(52): REM FELD FUER LESEROUTINE
50 OPEN1,8,15,"":REM FEHLERKANAL OEFFNEN UND INITIALISIEREN
60 PRINT#1,""CHR$(106)CHR$(0)CHR$(1)CHR$(133): REM BEI ERROR NICHT KLAPPERN
70 FORI=0TO52
80 READ R(I): REM MASCHINENPROGRAMM IN
90 NEXT I: REM FELD R() EINLESEN
100 PRINT""
110 INPUT"";SP:R(34)=SP
120 INPUT"";SE:R(38)=SE
130 INPUT"";HS:R(6)=HS*32
140 INPUT"";BS:R(23)=BS*32
150 INPUT"";ID$
160 IFID$<>""THENPRINT#1,""CHR$(18)CHR$(0)CHR$(2)ID$
170 FORI=0TO52
180 PRINT#1,""CHR$(I)CHR$(4)CHR$(1)CHR$(R(I)):REM PROGRAMM IN PUFFER SCHREIBE
190 NEXT I
200 PRINT#1,""CHR$(33)CHR$(4):REM PROGRAMM IN PUFFER AUSFUEHREN
210 INPUT#1,A,B$,C,D:PRINT:PRINTA;B$;C;D:REM FEHLERKANAL LESEN UND ZEIGEN
220 FORI=1TO3000:NEXT
230 :
240 DATA173,0,28,41,159,9,0,141,0,28,169,3,133,49,32,16,245,173,0,28,41,159
250 DATA9,0,141,0,28,32,86,245,76,212,244,169,24,133,8,169,0,133,9,162,1,134
260 DATA249,169,224,32,125,213,76,153,213
270 :
280 PRINT"":FORI=1TO2000:NEXT
290 REM 256 BYTES
300 :
310 FORI=0TO255STEP16:PRINT""
320 PRINT"":FORJ=0TO15
330 PRINT#1,""CHR$(I+J)CHR$(3)
340 GET#1,A$:A=ASC(A$+CHR$(0)):REM EINE BYTE LESEN
350 PRINT""I+J,A,A$"":REM AUSGEBEN: BYTENUMMER, ASC-WERT, ASCII-ZEICHEN
360 NEXT:PRINT"":POKE198,0:WAIT198,1:NEXT
READY.
